home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b6.d64 / obj'save.l < prev    next >
Text File  |  2007-02-28  |  716b  |  26 lines
  1. 9000 PROC OBJ'SAVE(FILENAME$,START'ADDR,END'ADDR,DEVICE) CLOSED
  2. 9010 START'HI:=INT(START'ADDR/256)
  3. 9020 START'LO:=START'ADDR-START'HI*256
  4. 9030 END'ADDR:=END'ADDR+1
  5. 9040 END'HI:=INT(END'ADDR/256)
  6. 9050 END'LO:=END'ADDR-END'HI*256
  7. 9060 L:=LEN(FILENAME$)
  8. 9070 FOR I:=1 TO L DO
  9. 9080 POKE 827+I,ORD(FILENAME$(I))
  10. 9090 ENDFOR I
  11. 9100 FOR I:=850 TO 886 DO
  12. 9110 READ X
  13. 9120 POKE I,X
  14. 9130 ENDFOR 
  15. 9140 DATA 169,0,170,160,255,32,186,255,169,0,162,60,160,3,32,189,255,32,192,255
  16. 9150 DATA 169,0,170,169,0,168,169,251,32,216,255,169,0,32,195,255,96
  17. 9160 POKE 851,DEVICE
  18. 9170 POKE 882,DEVICE
  19. 9180 POKE 859,L
  20. 9190 POKE 871,END'LO
  21. 9200 POKE 874,END'HI
  22. 9210 POKE 251,START'LO
  23. 9220 POKE 252,START'HI
  24. 9230 SYS 850
  25. 9240 ENDPROC OBJ'SAVE
  26.